home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / gear / for_fd / meeko / no1 / no007.txt < prev    next >
Text File  |  1994-01-07  |  823b  |  26 lines
  1. CLEAR ,,,10000
  2. DIM CARA%(4500)
  3. A1$=GETS$("systext",1)
  4. A2$=GETS$("systext",2)
  5. A3$=GETS$("systext",3)
  6. CLRF "systext"
  7. VIEW "イメージ1"
  8. LOAD@ "CARACTER.ABC",CARA%
  9. MOUSE 0
  10. MOUSE 1,280,169,0
  11. FLAG=-1
  12. WHILE FLAG
  13. CX=MOUSE(0):CY=MOUSE(1)
  14. PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA%
  15. IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0
  16. IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0
  17. IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0
  18. IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0
  19. IF (CX>443 AND CX<570) THEN IF (CY>309 AND CY<407) THEN GO "ページ5/イメージ1"
  20. WEND
  21. VIEW END
  22. PUTS "systext",A2$,2
  23. PUTS "systext",A3$,3
  24. EFFECT VERTICAL(OPEN)
  25. GO "ページ2/多色フレーム"
  26.